Szövegfájl (szoveg.txt) létrehozása és feltöltése 100 darab nullákat tartalmazó sorral (Ha a fájl létezik, akkor a tartalma kitörlődik) (Feltolto.pas)
program Feltolto;
uses crt;
var f:text;
i:integer;
function szaz0:string;
A függvény String típusú változót ad vissza.
var i:integer;
s:string;
begin
s:='';
for i:=1 to 100 do
s:=s+'0';
Mint látható, a string kiegészítése itt nem jelent problémát, csak hozzá kell adni az új karaktert.
szaz0:=s;
end;
BEGIN
assign(f,'szoveg.txt');
Az f változóhoz hozzárendeljük a szoveg.txt-t.
rewrite(f);
Állomány megnyitása írásra, a tartalom törlődésével.
for i:=1 to 100 do begin
writeln(f,szaz0);
100-szor meghívjuk a szaz0() függvényt, ami 100 db 0-t ad vissza és ezt kiírjuk az f-be, azaz a fájlba.
end;
close(f);
Bezárjuk az írásra megnyitott fájlt.
END.
Szövegfájl (szoveg.txt) létrehozása és feltöltése 100 darab nullákat tartalmazó sorral (Ha a fájl létezik, akkor a tartalma megmarad) (FeltoltoV1.pas)
program FeltoltoV1;
uses crt;
var f:text;
i:integer;
function szaz0:string;
var i:integer;
s:string;
begin
s:='';
for i:=1 to 100 do
s:=s+'0';
szaz0:=s;
end;
BEGIN
assign(f,'szoveg.txt');
append(f);
Állomány megnyitása írásra, a tartalom megtartásával.
for i:=1 to 100 do begin
writeln(f,szaz0);
end;
close(f);
END.